home *** CD-ROM | disk | FTP | other *** search
/ Adobe Digital Video Collection / Digital Video Collection CD.iso / After Effects 5.5 / MMScriptGer.Cab / F115660_one_spring.mm < prev    next >
Encoding:
Text File  |  2001-12-07  |  1.4 KB  |  40 lines
  1. // Einseitig federn - Version D1-1.1
  2.  
  3. //Dieses Skript verbindet die beiden Ebenen in den Einblendmenⁿs durch eine Feder. Ebene 1
  4. //behΣlt die ursprⁿngliche Geschwindigkeit, wΣhrend Ebene 2 ⁿber eine Feder mit ihr
  5. //verbunden ist.
  6.  
  7. //      EBENE                                   EIGENSCHAFT                        KANAL
  8. //      -----                                   -------------                       ------
  9. // 1: Sich bewegende Ebene            Wird nicht berⁿcksichtigt       Wird nicht berⁿcksichtigt
  10. // 2: Mit #1 verbundene Ebene       Wird nicht berⁿcksichtigt       Wird nicht berⁿcksichtigt
  11.  
  12. if (time() == start_time) {
  13.  
  14.    rest_length = 10;                            //LΣnge der Feder im entspannten Zustand in Pixeln
  15.    damp = 0.95;                                        // DΣmpfung (0 = unendlich gro▀, 1 = unendlich klein)
  16.  
  17.    p1 = value(pop_layer(1), position);
  18.    p2 = value(pop_layer(2), position);
  19.  
  20.    last_p1 = tmap(time() - step_time, value(pop_layer(1), position));
  21.    last_p2 = tmap(time() - step_time, value(pop_layer(2), position)); 
  22.  
  23.    v1 = (p1 - last_p1);
  24.    v2 = (p2 - last_p2);
  25. } else {
  26.   p1 = value(pop_layer(1), position);
  27.  
  28.    delta = p2 - p1;
  29.    n_delta = normalize(delta);
  30.  
  31.    a = 2 * n_delta * (length(delta) - rest_length) * step_time;
  32.  
  33.     v2 = (v2 - a) * damp;
  34.   v1 = (v1 + a) * damp;
  35.  
  36.    p1 = p1 + v1;
  37.    p2 = p2 + v2;
  38.  
  39.    value(pop_layer(2), position) = p2;
  40. }